home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
cboot.d64
/
randomize2.l
< prev
next >
Wrap
Text File
|
2009-01-23
|
956b
|
41 lines
851,DEVICE
0200 POKE 852,170 // TAX
0210 POKE 853,160 // LDY #$FF
0220 POKE 854,255
0230 POKE 855,32 // JSR $FFBA
0240 POKE 856,186
0250 POKE 857,255
0260 POKE 858,169 // LDA
0270 POKE 859,LEN(FILENAME$)
0280 POKE 860,162 // LDX #$3C
0290 POKE 861,60
0300 POKE 862,160 // LDY #$03
0310 POKE 863,3
0320 POKE 864,32 // JSR $FFBD
0330 POKE 865,189
0340 POKE 866,255
0350 POKE 867,32 // JSR $FFC0
0360 POKE 868,192
0370 POKE 869,255
0380 POKE 870,169 // LDA END'LO
0390 POKE 871,END'LO
0400 POKE 872,170 // TAX
0410 POKE 873,169 // LDA END'HI
0420 POKE 874,END'HI
0430 POKE 875,168 // TAY
0440 POKE 876,169 // LDA #$FB
0450 POKE 877,251
0460 POKE 878,32 // JSR $FFD8
0470 POKE 879,216
0480 POKE 880,255
0490 POKE 881,169 // LDA
0500 POKE 882,DEVICE
0510 POKE 883,32 // JSR $FFC3
0520 POKE 884,195
0530 POKE 885,255
0540 POKE 886,96 // RTS
0550 POKE 251,START'LO
0560 POKE 252,START'HI
0570 SYS 850
0580 ENDPROC OBJ_SAVE